use strict;
use warnings;
use LWP::Simple;

my $url = "http://finance.yahoo.com/q/op?s=RAS+Options";
my $content = get($url);

my $test;

foreach (split(/yrb_token/,$content)) {
	print $_;
}

#print $2;

#print $content;



my $tmp = <>;